home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / avi.spr < prev    next >
Encoding:
Text File  |  1994-07-10  |  3.7 KB  |  132 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 07/10/94               AVI.SPR                 10:28:23 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *     S7703304/Windows Databases, Indexes, Relations      
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF USED("avi")
  45.     SELECT avi
  46.     SET ORDER TO 0
  47. ELSE
  48.     SELECT 0
  49.     USE (LOCFILE("avi.dbf","DBF","Where is avi?"));
  50.         AGAIN ALIAS avi ;
  51.         ORDER 0
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *               Windows Window definitions                
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. IF NOT WEXIST("avi") ;
  63.     OR UPPER(WTITLE("AVI")) == "AVI.PJX" ;
  64.     OR UPPER(WTITLE("AVI")) == "AVI.SCX" ;
  65.     OR UPPER(WTITLE("AVI")) == "AVI.MNX" ;
  66.     OR UPPER(WTITLE("AVI")) == "AVI.PRG" ;
  67.     OR UPPER(WTITLE("AVI")) == "AVI.FRX" ;
  68.     OR UPPER(WTITLE("AVI")) == "AVI.QPR"
  69.     DEFINE WINDOW avi ;
  70.         AT  0.000, 0.000  ;
  71.         SIZE 16.846,59.400 ;
  72.         TITLE "Re/Max Video" ;
  73.         FONT "MS Sans Serif", 8 ;
  74.         FLOAT ;
  75.         NOCLOSE ;
  76.         MINIMIZE ;
  77.         SYSTEM
  78.     MOVE WINDOW avi CENTER
  79. ENDIF
  80.  
  81.  
  82. *       *********************************************************
  83. *       *                                                         
  84. *       *                AVI/Windows Screen Layout                
  85. *       *                                                         
  86. *       *********************************************************
  87. *
  88.  
  89. #REGION 1
  90. IF WVISIBLE("avi")
  91.     ACTIVATE WINDOW avi SAME
  92. ELSE
  93.     ACTIVATE WINDOW avi NOSHOW
  94. ENDIF
  95. @ 1.846,9.600 SAY Avi.file ;
  96.     SIZE 13.923,41.000 ;
  97.     STYLE ""
  98.  
  99. IF NOT WVISIBLE("avi")
  100.     ACTIVATE WINDOW avi
  101. ENDIF
  102.  
  103. READ CYCLE
  104.  
  105. RELEASE WINDOW avi
  106.  
  107. *       *********************************************************
  108. *       *                                                         
  109. *       *                Windows Closing Databases                
  110. *       *                                                         
  111. *       *********************************************************
  112. *
  113.  
  114. IF USED("avi")
  115.     SELECT avi
  116.     USE
  117. ENDIF
  118.  
  119. SELECT (m.currarea)
  120.  
  121.  
  122. #REGION 0
  123.  
  124. SET READBORDER &rborder
  125.  
  126. IF m.talkstat = "ON"
  127.     SET TALK ON
  128. ENDIF
  129. IF m.compstat = "ON"
  130.     SET COMPATIBLE ON
  131. ENDIF
  132.